home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir28 / papc20.zip / MORTGAGE.PRG < prev    next >
Text File  |  1994-04-02  |  617b  |  22 lines
  1. LBL mortgage
  2. 12 prec
  3. clrf 125,000 pv 6.875 12/ i 30 12* n pmt
  4. PUTS "month      payment      interest     principal      balance\n"
  5. PUTS "-----      -------      --------     ---------      -------\n"
  6. ; do it for thirty years
  7. 1.36001 0 sto      ; counter
  8. 3 rcl 6 sto        ; r6 will hold balance
  9.  
  10. LBL loop
  11. 0 fix
  12. 0 rcl int 4 putx drop puts "   "         ; month
  13. 2 fix
  14. 4 rcl chs 10 putx puts "     "           ; pmt
  15. 6 rcl 2 rcl % 10 putx puts "  "          ; interest
  16. - 10 putx puts "      "                  ; principal
  17. chs 6 rcl + 10 putx puts "\n"            ; balance
  18. 6 sto
  19. 0 ISG
  20. GTO loop
  21. QUIT
  22.